home *** CD-ROM | disk | FTP | other *** search
/ The Adult Reference Library 1.a / The Adult Reference Library Volume 1.a.iso / menu.bat < prev    next >
DOS Batch File  |  1993-05-07  |  3KB  |  166 lines
  1. @ECHO OFF
  2. CLS
  3. :TOP
  4. GO-MENU MAIN.MNU 0
  5. IF ERRORLEVEL  10 GOTO QUIT
  6. IF ERRORLEVEL  9 GOTO F9
  7. IF ERRORLEVEL  8 GOTO F8
  8. IF ERRORLEVEL  7 GOTO F7
  9. IF ERRORLEVEL  6 GOTO F6
  10. IF ERRORLEVEL  5 GOTO F5
  11. IF ERRORLEVEL  4 GOTO F4
  12. IF ERRORLEVEL  3 GOTO F3
  13. IF ERRORLEVEL  2 GOTO F2
  14. IF ERRORLEVEL  1 GOTO F1
  15. :F1
  16.   @ECHO OFF
  17.   CLS
  18.   SEE \WELCOME\*.*
  19.   GOTO TOP
  20. :F2
  21.   @ECHO OFF
  22.   CLS
  23.   CD\
  24.   svga /x 640 /y 480 /p \famous
  25.   GOTO TOP
  26. :F3
  27.   @ECHO OFF
  28.   CLS
  29.   svga /x 640 /y 480 /p \cartoons
  30.   GOTO TOP
  31. :F4
  32.   @ECHO OFF
  33.   CLS
  34.   svga /x 640 /y 480 /p \oriental
  35.   GOTO TOP
  36. :F5
  37.   @ECHO OFF
  38.   CLS
  39.   svga /x 640 /y 480 /p \surprise
  40.   GOTO TOP
  41. :F6
  42.   @ECHO OFF
  43.   CLS
  44.   GOTO SEX
  45. :F7
  46.   @ECHO OFF
  47.   CLS
  48.   SEE \BEDTIME\*.*
  49.   GOTO TOP
  50. :F8
  51.   @ECHO OFF
  52.   CLS
  53.   svga /x 800 /y 600 /p \soon
  54.   GOTO TOP
  55. :F9
  56.   @ECHO OFF
  57.   CLS
  58.   SEE \DISCLAIM\DOGMA.TXT
  59.   GOTO TOP
  60. :SEX
  61.   GO-MENU SEX.MNU 0
  62.   IF ERRORLEVEL  10 GOTO F10A
  63.   IF ERRORLEVEL  9 GOTO F9A
  64.   IF ERRORLEVEL  8 GOTO F8A
  65.   IF ERRORLEVEL  7 GOTO F7A
  66.   IF ERRORLEVEL  6 GOTO F6A
  67.   IF ERRORLEVEL  5 GOTO F5A
  68.   IF ERRORLEVEL  4 GOTO F4A
  69.   IF ERRORLEVEL  3 GOTO F3A
  70.   IF ERRORLEVEL  2 GOTO F2A
  71.   IF ERRORLEVEL  1 GOTO F1A
  72. :F1A
  73.   @ECHO OFF
  74.   CLS
  75.   svga /x 640 /y 480 /p \lesbian
  76.   GOTO SEX
  77. :F2A
  78.   @ECHO OFF
  79.   CLS
  80.   svga /x 640 /y 480 /p \series-1
  81.   GOTO SEX
  82. :F3A
  83.   @ECHO OFF
  84.   CLS
  85.   svga /x 640 /y 480 /p \series-2
  86.   GOTO SEX
  87. :F4A
  88.   @ECHO OFF
  89.   CLS
  90.   svga /x 640 /y 480 /p \series-3
  91.   GOTO SEX
  92. :F5A
  93.   @ECHO OFF
  94.   CLS
  95.   svga /x 640 /y 480 /p \bigboobs
  96.   GOTO SEX
  97. :F6A
  98.   @ECHO OFF
  99.   CLS
  100.   svga /x 640 /y 480 /p \tinytits
  101.   GOTO SEX
  102. :F7A
  103.   @ECHO OFF
  104.   CLS
  105.   svga /x 640 /y 480 /p \yunglove
  106.   GOTO SEX
  107. :F8A  
  108.   @ECHO OFF
  109.   CLS
  110.   svga /x 640 /y 480 /p \groupsex
  111.   GOTO SEX
  112. :F9A  
  113.   @ECHO OFF
  114.   CLS
  115.   GOTO HARDCORE 
  116. :F10A  
  117.   @ECHO OFF
  118.   CLS
  119.   GOTO TOP
  120. :HARDCORE 
  121.   GO-MENU HARDCORE.MNU 0
  122.   IF ERRORLEVEL  10 GOTO F10B
  123.   IF ERRORLEVEL  9 GOTO F9B
  124.   IF ERRORLEVEL  6 GOTO F6B
  125.   IF ERRORLEVEL  5 GOTO F5B
  126.   IF ERRORLEVEL  4 GOTO F4B
  127.   IF ERRORLEVEL  3 GOTO F3B
  128.   IF ERRORLEVEL  2 GOTO F2B
  129.   IF ERRORLEVEL  1 GOTO F1B
  130. :F1B
  131.   @ECHO OFF
  132.   CLS
  133.   svga /x 640 /y 480 /p \cumming
  134.   GOTO HARDCORE
  135. :F2B
  136.   @ECHO OFF
  137.   CLS
  138.   svga /x 640 /y 480 /p \oral
  139.   GOTO HARDCORE
  140. :F3B
  141.   @ECHO OFF
  142.   CLS
  143.   svga /x 640 /y 480 /p \girltoys
  144.   GOTO HARDCORE
  145. :F4B
  146.   @ECHO OFF
  147.   CLS
  148.   svga /x 640 /y 480 /p \shaved
  149.   GOTO HARDCORE
  150. :F5B
  151.   @ECHO OFF
  152.   CLS
  153.   svga /x 640 /y 480 /p \pregnant
  154.   GOTO HARDCORE
  155. :F6B
  156.   @ECHO OFF
  157.   CLS
  158.   svga /x 640 /y 480 /p \weird
  159.   GOTO HARDCORE
  160. :F9B
  161.   GOTO TOP
  162. :F10B
  163.   GOTO SEX
  164. :QUIT
  165.   CD\
  166.